home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 4.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar 9 13|
|00000040| 3a 30 34 3a 33 34 20 31 | 39 39 38 0a 3b 3b 3b 20 |:04:34 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 77 33 2f 75 |s-20.3/l|isp/w3/u|
|000000a0| 72 6c 2d 6d 69 73 63 2e | 65 6c 0a 3b 3b 3b 20 65 |rl-misc.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |.. (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)). (|
|000001e0| 65 72 72 6f 72 20 22 60 | 75 72 6c 2d 6d 69 73 63 |error "`|url-misc|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| c1 21 88 c0 c2 21 88 c0 | c3 21 87 22 20 5b 72 65 |.!...!..|.!." [re|
|00000270| 71 75 69 72 65 20 75 72 | 6c 2d 76 61 72 73 20 75 |quire ur|l-vars u|
|00000280| 72 6c 2d 70 61 72 73 65 | 20 77 69 64 67 65 74 5d |rl-parse| widget]|
|00000290| 20 32 29 0a 23 40 32 20 | 1f 0a 28 61 75 74 6f 6c | 2).#@2 |..(autol|
|000002a0| 6f 61 64 20 27 49 6e 66 | 6f 2d 67 6f 74 6f 2d 6e |oad 'Inf|o-goto-n|
|000002b0| 6f 64 65 20 22 69 6e 66 | 6f 22 20 27 28 23 24 20 |ode "inf|o" '(#$ |
|000002c0| 2e 20 36 36 34 29 20 74 | 29 0a 28 64 65 66 61 6c |. 664) t|).(defal|
|000002d0| 69 61 73 20 27 75 72 6c | 2d 6e 65 74 72 65 6b 20 |ias 'url|-netrek |
|000002e0| 23 5b 28 75 72 6c 29 20 | 22 c0 09 21 ab 84 c2 09 |#[(url) |"..!....|
|000002f0| 21 88 c3 0c 21 1d c6 c7 | 0d c8 48 0d c9 48 ae 8d |!...!...|..H..H..|
|00000300| 0d ca 48 ad 88 cb 0d cc | 48 0e 0d 5c 22 a3 23 29 |..H.....|H..\".#)|
|00000310| 87 22 20 5b 67 65 74 2d | 62 75 66 66 65 72 20 75 |." [get-|buffer u|
|00000320| 72 6c 2d 77 6f 72 6b 69 | 6e 67 2d 62 75 66 66 65 |rl-worki|ng-buffe|
|00000330| 72 20 6b 69 6c 6c 2d 62 | 75 66 66 65 72 20 75 72 |r kill-b|uffer ur|
|00000340| 6c 2d 67 65 6e 65 72 69 | 63 2d 70 61 72 73 65 2d |l-generi|c-parse-|
|00000350| 75 72 6c 20 75 72 6c 20 | 64 61 74 61 20 65 72 72 |url url |data err|
|00000360| 6f 72 20 22 49 20 73 68 | 6f 75 6c 64 20 6c 61 75 |or "I sh|ould lau|
|00000370| 6e 63 68 20 6e 65 74 72 | 65 6b 20 6f 6e 3a 20 25 |nch netr|ek on: %|
|00000380| 73 20 25 73 22 20 33 20 | 34 20 38 20 61 73 73 6f |s %s" 3 |4 8 asso|
|00000390| 63 20 30 20 75 72 6c 2d | 64 65 66 61 75 6c 74 2d |c 0 url-|default-|
|000003a0| 70 6f 72 74 73 5d 20 36 | 5d 29 0a 28 64 65 66 61 |ports] 6|]).(defa|
|000003b0| 6c 69 61 73 20 27 75 72 | 6c 2d 69 6e 66 6f 20 23 |lias 'ur|l-info #|
|000003c0| 5b 28 75 72 6c 29 20 22 | c0 09 21 ab 84 c2 09 21 |[(url) "|..!....!|
|000003d0| 88 c3 0c 21 89 1d c6 48 | 1e 07 c8 0d c9 48 ae 81 |...!...H|.....H..|
|000003e0| ca 21 1e 0b 0e 07 ab 8f | 0e 0b ab 8b cc cd 0e 07 |.!......|........|
|000003f0| ce 0e 0b 52 21 aa 84 cf | d0 0c 5c 22 2b 87 22 20 |...R!...|..\"+." |
|00000400| 5b 67 65 74 2d 62 75 66 | 66 65 72 20 75 72 6c 2d |[get-buf|fer url-|
|00000410| 77 6f 72 6b 69 6e 67 2d | 62 75 66 66 65 72 20 6b |working-|buffer k|
|00000420| 69 6c 6c 2d 62 75 66 66 | 65 72 20 75 72 6c 2d 67 |ill-buff|er url-g|
|00000430| 65 6e 65 72 69 63 2d 70 | 61 72 73 65 2d 75 72 6c |eneric-p|arse-url|
|00000440| 20 75 72 6c 20 64 61 74 | 61 20 35 20 66 6e 61 6d | url dat|a 5 fnam|
|00000450| 65 20 75 72 6c 2d 75 6e | 68 65 78 2d 73 74 72 69 |e url-un|hex-stri|
|00000460| 6e 67 20 36 20 22 54 6f | 70 22 20 6e 6f 64 65 20 |ng 6 "To|p" node |
|00000470| 49 6e 66 6f 2d 67 6f 74 | 6f 2d 6e 6f 64 65 20 22 |Info-got|o-node "|
|00000480| 28 22 20 22 29 22 20 65 | 72 72 6f 72 20 22 4d 61 |(" ")" e|rror "Ma|
|00000490| 6c 66 6f 72 6d 65 64 20 | 75 72 6c 3a 20 25 73 22 |lformed |url: %s"|
|000004a0| 5d 20 36 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 6]).(d|efalias |
|000004b0| 27 75 72 6c 2d 66 69 6e | 67 65 72 20 23 5b 28 75 |'url-fin|ger #[(u|
|000004c0| 72 6c 29 20 22 c0 11 c2 | 13 c4 0d 21 71 88 c6 0e |rl) "...|...!q...|
|000004d0| 07 21 ab 84 0e 07 aa 84 | c8 0e 07 21 89 1e 09 ca |.!......|...!....|
|000004e0| 48 ae 81 cb 1e 0c 0e 09 | cd 48 ae 97 0e 09 ce 48 |H.......|.H.....H|
|000004f0| ab 8b cf 0e 09 d0 48 0e | 11 5c 22 a3 ae 86 cf d2 |......H.|.\".....|
|00000500| 0e 11 5c 22 a3 1e 13 d4 | 0e 09 d5 48 21 1e 16 d7 |..\"....|...H!...|
|00000510| d2 0d 0e 0c d8 0e 13 21 | 24 1e 19 da 0e 19 21 ad |.......!|$.....!.|
|00000520| df db 0e 19 21 88 dc 0e | 19 dd 5c 22 88 de 0e 16 |....!...|..\"....|
|00000530| 21 df 55 ab 87 0e 16 e0 | e1 4f 16 16 65 62 88 e2 |!.U.....|.O..eb..|
|00000540| e3 e4 0e 16 e5 0e 0c e6 | e7 e8 e9 0e 16 e5 0e 0c |........|........|
|00000550| ea eb ec b1 10 88 ed 0e | 19 0e 16 ee 50 5c 22 88 |........|....P\".|
|00000560| ef 0e 19 21 f0 73 ab 8a | f1 20 88 f2 0e 19 21 88 |...!.s..|. ....!.|
|00000570| aa 6e 65 62 88 f3 f4 f5 | 5c 22 88 64 62 88 f6 f7 |.neb....|\".db...|
|00000580| f8 b1 03 2d 87 22 20 5b | 28 28 22 63 6f 6e 74 65 |...-." [|(("conte|
|00000590| 6e 74 2d 74 79 70 65 22 | 20 2e 20 22 74 65 78 74 |nt-type"| . "text|
|000005a0| 2f 68 74 6d 6c 22 29 29 | 20 75 72 6c 2d 63 75 72 |/html"))| url-cur|
|000005b0| 72 65 6e 74 2d 6d 69 6d | 65 2d 68 65 61 64 65 72 |rent-mim|e-header|
|000005c0| 73 20 22 74 65 78 74 2f | 68 74 6d 6c 22 20 75 72 |s "text/|html" ur|
|000005d0| 6c 2d 63 75 72 72 65 6e | 74 2d 6d 69 6d 65 2d 74 |l-curren|t-mime-t|
|000005e0| 79 70 65 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |ype get-|buffer-c|
|000005f0| 72 65 61 74 65 20 75 72 | 6c 2d 77 6f 72 6b 69 6e |reate ur|l-workin|
|00000600| 67 2d 62 75 66 66 65 72 | 20 76 65 63 74 6f 72 70 |g-buffer| vectorp|
|00000610| 20 75 72 6c 20 75 72 6c | 2d 67 65 6e 65 72 69 63 | url url|-generic|
|00000620| 2d 70 61 72 73 65 2d 75 | 72 6c 20 75 72 6c 6f 62 |-parse-u|rl urlob|
|00000630| 6a 20 33 20 22 6c 6f 63 | 61 6c 68 6f 73 74 22 20 |j 3 "loc|alhost" |
|00000640| 68 6f 73 74 20 34 20 38 | 20 61 73 73 6f 63 20 30 |host 4 8| assoc 0|
|00000650| 20 75 72 6c 2d 64 65 66 | 61 75 6c 74 2d 70 6f 72 | url-def|ault-por|
|00000660| 74 73 20 22 66 69 6e 67 | 65 72 22 20 70 6f 72 74 |ts "fing|er" port|
|00000670| 20 75 72 6c 2d 75 6e 68 | 65 78 2d 73 74 72 69 6e | url-unh|ex-strin|
|00000680| 67 20 35 20 75 73 65 72 | 20 75 72 6c 2d 6f 70 65 |g 5 user| url-ope|
|00000690| 6e 2d 73 74 72 65 61 6d | 20 73 74 72 69 6e 67 2d |n-stream| string-|
|000006a0| 74 6f 2d 69 6e 74 20 70 | 72 6f 63 20 70 72 6f 63 |to-int p|roc proc|
|000006b0| 65 73 73 70 20 70 72 6f | 63 65 73 73 2d 6b 69 6c |essp pro|cess-kil|
|000006c0| 6c 2d 77 69 74 68 6f 75 | 74 2d 71 75 65 72 79 20 |l-withou|t-query |
|000006d0| 73 65 74 2d 70 72 6f 63 | 65 73 73 2d 73 65 6e 74 |set-proc|ess-sent|
|000006e0| 69 6e 65 6c 20 69 67 6e | 6f 72 65 20 73 74 72 69 |inel ign|ore stri|
|000006f0| 6e 67 2d 74 6f 2d 63 68 | 61 72 20 3f 5c 2f 20 31 |ng-to-ch|ar ?\/ 1|
|00000700| 20 6e 69 6c 20 22 3c 68 | 74 6d 6c 3e 5c 6e 22 20 | nil "<h|tml>\n" |
|00000710| 22 20 3c 68 65 61 64 3e | 5c 6e 22 20 22 20 20 3c |" <head>|\n" " <|
|00000720| 74 69 74 6c 65 3e 46 69 | 6e 67 65 72 20 69 6e 66 |title>Fi|nger inf|
|00000730| 6f 72 6d 61 74 69 6f 6e | 20 66 6f 72 20 22 20 22 |ormation| for " "|
|00000740| 40 22 20 22 3c 2f 74 69 | 74 6c 65 3e 5c 6e 22 20 |@" "</ti|tle>\n" |
|00000750| 22 20 3c 2f 68 65 61 64 | 3e 5c 6e 22 20 22 20 3c |" </head|>\n" " <|
|00000760| 62 6f 64 79 3e 5c 6e 22 | 20 22 20 20 3c 68 31 3e |body>\n"| " <h1>|
|00000770| 46 69 6e 67 65 72 20 69 | 6e 66 6f 72 6d 61 74 69 |Finger i|nformati|
|00000780| 6f 6e 20 66 6f 72 20 22 | 20 22 3c 2f 68 31 3e 5c |on for "| "</h1>\|
|00000790| 6e 22 20 22 20 20 3c 68 | 72 3e 5c 6e 22 20 22 20 |n" " <h|r>\n" " |
|000007a0| 20 3c 70 72 65 3e 5c 6e | 22 20 70 72 6f 63 65 73 | <pre>\n|" proces|
|000007b0| 73 2d 73 65 6e 64 2d 73 | 74 72 69 6e 67 20 22 0d |s-send-s|tring ".|
|000007c0| 5c 6e 22 20 75 72 6c 2d | 70 72 6f 63 65 73 73 2d |\n" url-|process-|
|000007d0| 73 74 61 74 75 73 20 28 | 72 75 6e 20 6f 70 65 6e |status (|run open|
|000007e0| 29 20 75 72 6c 2d 61 66 | 74 65 72 2d 63 68 61 6e |) url-af|ter-chan|
|000007f0| 67 65 2d 66 75 6e 63 74 | 69 6f 6e 20 75 72 6c 2d |ge-funct|ion url-|
|00000800| 61 63 63 65 70 74 2d 70 | 72 6f 63 65 73 73 2d 6f |accept-p|rocess-o|
|00000810| 75 74 70 75 74 20 75 72 | 6c 2d 72 65 70 6c 61 63 |utput ur|l-replac|
|00000820| 65 2d 72 65 67 65 78 70 | 20 22 5e 50 72 6f 63 65 |e-regexp| "^Proce|
|00000830| 73 73 20 2e 2a 20 65 78 | 69 74 65 64 20 2e 2a 63 |ss .* ex|ited .*c|
|00000840| 6f 64 65 20 2e 2a 24 22 | 20 22 22 20 22 20 20 3c |ode .*$"| "" " <|
|00000850| 2f 70 72 65 3e 5c 6e 22 | 20 22 20 3c 2f 62 6f 64 |/pre>\n"| " </bod|
|00000860| 79 3e 5c 6e 22 20 22 3c | 2f 68 74 6d 6c 3e 5c 6e |y>\n" "<|/html>\n|
|00000870| 22 5d 20 31 37 5d 29 0a | 28 64 65 66 61 6c 69 61 |"] 17]).|(defalia|
|00000880| 73 20 27 75 72 6c 2d 64 | 6f 2d 74 65 72 6d 69 6e |s 'url-d|o-termin|
|00000890| 61 6c 2d 65 6d 75 6c 61 | 74 6f 72 20 23 5b 28 74 |al-emula|tor #[(t|
|000008a0| 79 70 65 20 73 65 72 76 | 65 72 20 70 6f 72 74 20 |ype serv|er port |
|000008b0| 75 73 65 72 29 20 22 c0 | c1 c2 c3 0c ab 85 0c c5 |user) ".|........|
|000008c0| 50 aa 81 c6 0e 07 23 21 | 0e 08 c9 61 ab 83 ca aa |P.....#!|...a....|
|000008d0| 97 0e 08 cb 61 ab 83 cc | aa 8e 0e 08 cd 61 ab 83 |....a...|.....a..|
|000008e0| ce aa 85 cf d0 0e 08 5c | 22 0e 08 c9 61 ab 8f 0c |.......\|"...a...|
|000008f0| ab 87 0e 07 d1 0c 45 aa | b4 0e 07 43 aa af 0e 08 |......E.|...C....|
|00000900| cb 61 ab 98 0c ab 85 d2 | d3 0c 5c 22 88 0e 14 ab |.a......|..\"....|
|00000910| 87 0e 07 0e 14 44 aa 96 | 0e 07 43 aa 91 0e 08 cd |.....D..|..C.....|
|00000920| 61 ad 8b 0c ab 85 d2 d3 | 0c 5c 22 88 0e 07 43 23 |a.......|.\"...C#|
|00000930| 87 22 20 5b 74 65 72 6d | 69 6e 61 6c 2d 65 6d 75 |." [term|inal-emu|
|00000940| 6c 61 74 6f 72 20 67 65 | 6e 65 72 61 74 65 2d 6e |lator ge|nerate-n|
|00000950| 65 77 2d 62 75 66 66 65 | 72 20 66 6f 72 6d 61 74 |ew-buffe|r format|
|00000960| 20 22 25 73 25 73 22 20 | 75 73 65 72 20 22 40 22 | "%s%s" |user "@"|
|00000970| 20 22 22 20 73 65 72 76 | 65 72 20 74 79 70 65 20 | "" serv|er type |
|00000980| 72 6c 6f 67 69 6e 20 22 | 72 6c 6f 67 69 6e 22 20 |rlogin "|rlogin" |
|00000990| 74 65 6c 6e 65 74 20 22 | 74 65 6c 6e 65 74 22 20 |telnet "|telnet" |
|000009a0| 74 6e 33 32 37 30 20 22 | 74 6e 33 32 37 30 22 20 |tn3270 "|tn3270" |
|000009b0| 65 72 72 6f 72 20 22 55 | 6e 6b 6e 6f 77 6e 20 74 |error "U|nknown t|
|000009c0| 65 72 6d 69 6e 61 6c 20 | 65 6d 75 6c 61 74 6f 72 |erminal |emulator|
|000009d0| 20 72 65 71 75 69 72 65 | 64 3a 20 25 73 22 20 22 | require|d: %s" "|
|000009e0| 2d 6c 22 20 6d 65 73 73 | 61 67 65 20 22 50 6c 65 |-l" mess|age "Ple|
|000009f0| 61 73 65 20 6c 6f 67 20 | 69 6e 20 61 73 20 75 73 |ase log |in as us|
|00000a00| 65 72 3a 20 25 73 22 20 | 70 6f 72 74 5d 20 36 5d |er: %s" |port] 6]|
|00000a10| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 72 6c |).(defal|ias 'url|
|00000a20| 2d 67 65 6e 65 72 69 63 | 2d 65 6d 75 6c 61 74 6f |-generic|-emulato|
|00000a30| 72 2d 6c 6f 61 64 65 72 | 20 23 5b 28 75 72 6c 29 |r-loader| #[(url)|
|00000a40| 20 22 c0 09 21 ab 84 c2 | 09 21 88 c3 c4 0d 5c 22 | "..!...|.!....\"|
|00000a50| ac 85 c6 c7 0d 5c 22 88 | c8 c9 ca 0d 5c 22 97 21 |.....\".|....\".!|
|00000a60| 1e 0b c9 cc 0d 5c 22 1e | 0d ce 94 ad 87 0d ce 94 |.....\".|........|
|00000a70| ce 95 53 4f 1e 0f c3 d0 | 0e 0d 5c 22 ad 8e 0e 0d |..SO....|..\"....|
|00000a80| d1 95 d2 4f 0e 0d d1 89 | 94 4f 16 0d 1e 13 d4 0e |...O....|.O......|
|00000a90| 0b 0e 0d 0e 13 0e 0f 24 | 2c 87 22 20 5b 67 65 74 |.......$|,." [get|
|00000aa0| 2d 62 75 66 66 65 72 20 | 75 72 6c 2d 77 6f 72 6b |-buffer |url-work|
|00000ab0| 69 6e 67 2d 62 75 66 66 | 65 72 20 6b 69 6c 6c 2d |ing-buff|er kill-|
|00000ac0| 62 75 66 66 65 72 20 73 | 74 72 69 6e 67 2d 6d 61 |buffer s|tring-ma|
|00000ad0| 74 63 68 20 22 5e 5c 5c | 28 5b 5e 3a 5d 2b 5c 5c |tch "^\\|([^:]+\\|
|00000ae0| 29 3a 2f 2a 5c 5c 28 2e | 2a 40 5c 5c 29 2a 5c 5c |):/*\\(.|*@\\)*\\|
|00000af0| 28 5b 5e 2f 5d 2a 5c 5c | 29 2f 2a 22 20 75 72 6c |([^/]*\\|)/*" url|
|00000b00| 20 65 72 72 6f 72 20 22 | 49 6e 76 61 6c 69 64 20 | error "|Invalid |
|00000b10| 55 52 4c 3a 20 25 73 22 | 20 69 6e 74 65 72 6e 20 |URL: %s"| intern |
|00000b20| 6d 61 74 63 68 2d 73 74 | 72 69 6e 67 20 31 20 74 |match-st|ring 1 t|
|00000b30| 79 70 65 20 33 20 73 65 | 72 76 65 72 20 32 20 6e |ype 3 se|rver 2 n|
|00000b40| 61 6d 65 20 22 3a 22 20 | 30 20 6e 69 6c 20 70 6f |ame ":" |0 nil po|
|00000b50| 72 74 20 75 72 6c 2d 64 | 6f 2d 74 65 72 6d 69 6e |rt url-d|o-termin|
|00000b60| 61 6c 2d 65 6d 75 6c 61 | 74 6f 72 5d 20 35 5d 29 |al-emula|tor] 5])|
|00000b70| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4d |.(byte-c|ode "..M|
|00000b80| 88 c2 c1 4d 88 c3 c1 4d | 87 22 20 5b 75 72 6c 2d |...M...M|." [url-|
|00000b90| 72 6c 6f 67 69 6e 20 75 | 72 6c 2d 67 65 6e 65 72 |rlogin u|rl-gener|
|00000ba0| 69 63 2d 65 6d 75 6c 61 | 74 6f 72 2d 6c 6f 61 64 |ic-emula|tor-load|
|00000bb0| 65 72 20 75 72 6c 2d 74 | 65 6c 6e 65 74 20 75 72 |er url-t|elnet ur|
|00000bc0| 6c 2d 74 6e 33 32 37 30 | 5d 20 32 29 0a 28 64 65 |l-tn3270|] 2).(de|
|00000bd0| 66 61 6c 69 61 73 20 27 | 75 72 6c 2d 70 72 6f 78 |falias '|url-prox|
|00000be0| 79 20 23 5b 28 75 72 6c | 29 20 22 c0 09 21 89 1a |y #[(url|) "..!..|
|00000bf0| c3 c4 49 88 c5 0e 06 c7 | 5c 6e 21 5c 22 29 87 22 |..I.....|\n!\")."|
|00000c00| 20 5b 75 72 6c 2d 67 65 | 6e 65 72 69 63 2d 70 61 | [url-ge|neric-pa|
|00000c10| 72 73 65 2d 75 72 6c 20 | 75 72 6c 20 75 72 6c 6f |rse-url |url urlo|
|00000c20| 62 6a 20 36 20 6e 69 6c | 20 75 72 6c 2d 68 74 74 |bj 6 nil| url-htt|
|00000c30| 70 20 75 72 6c 2d 75 73 | 69 6e 67 2d 70 72 6f 78 |p url-us|ing-prox|
|00000c40| 79 20 75 72 6c 2d 72 65 | 63 72 65 61 74 65 2d 75 |y url-re|create-u|
|00000c50| 72 6c 5d 20 35 5d 29 0a | 23 40 33 33 20 2a 57 68 |rl] 5]).|#@33 *Wh|
|00000c60| 65 72 65 20 74 6f 20 73 | 65 6e 64 20 77 65 62 6d |ere to s|end webm|
|00000c70| 61 69 6c 20 72 65 71 75 | 65 73 74 73 1f 0a 28 64 |ail requ|ests..(d|
|00000c80| 65 66 76 61 72 20 75 72 | 6c 2d 77 65 62 6d 61 69 |efvar ur|l-webmai|
|00000c90| 6c 2d 67 61 74 65 77 61 | 79 20 22 77 33 6d 61 69 |l-gatewa|y "w3mai|
|00000ca0| 6c 40 67 6d 64 2e 64 65 | 22 20 28 23 24 20 2e 20 |l@gmd.de|" (#$ . |
|00000cb0| 2d 33 31 36 35 29 29 0a | 28 62 79 74 65 2d 63 6f |-3165)).|(byte-co|
|00000cc0| 64 65 20 22 c0 c1 21 ac | 82 c2 11 c1 0b 42 13 c0 |de "..!.|.....B..|
|00000cd0| 87 22 20 5b 62 6f 75 6e | 64 70 20 75 72 6c 2d 77 |." [boun|dp url-w|
|00000ce0| 65 62 6d 61 69 6c 2d 73 | 77 69 74 63 68 65 73 20 |ebmail-s|witches |
|00000cf0| 28 22 20 22 20 22 2d 75 | 75 20 2d 7a 22 20 22 2d |(" " "-u|u -z" "-|
|00000d00| 75 75 20 2d 7a 20 2d 73 | 20 31 30 30 22 29 20 63 |uu -z -s| 100") c|
|00000d10| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000d20| 5d 20 32 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 2).(de|falias '|
|00000d30| 75 72 6c 2d 70 72 6f 78 | 79 2d 76 69 61 2d 6d 61 |url-prox|y-via-ma|
|00000d40| 69 6c 20 23 5b 28 75 72 | 6c 29 20 22 c0 09 21 1a |il #[(ur|l) "..!.|
|00000d50| 0b 20 88 c4 c5 21 c6 4c | 88 65 62 88 c7 0e 08 c9 |. ...!.L|.eb.....|
|00000d60| c6 23 ab 89 ca 75 88 60 | 64 7c 88 aa 83 64 62 88 |.#...u.`|d|...db.|
|00000d70| cb cc 21 ab 84 cc ca 21 | 88 cd ce cf d0 d1 d2 d3 |..!....!|........|
|00000d80| d4 d5 d6 d7 0e 18 5c 22 | 26 09 88 d1 09 b1 02 88 |......\"|&.......|
|00000d90| 0e 19 ab 86 da 0e 19 b1 | 02 88 db dc 21 88 0e 1d |........|....!...|
|00000da0| 63 29 87 22 20 5b 75 72 | 6c 2d 67 65 6e 65 72 69 |c)." [ur|l-generi|
|00000db0| 63 2d 70 61 72 73 65 2d | 75 72 6c 20 75 72 6c 20 |c-parse-|url url |
|00000dc0| 75 72 6c 6f 62 6a 20 75 | 72 6c 2d 6d 61 69 6c 2d |urlobj u|rl-mail-|
|00000dd0| 63 6f 6d 6d 61 6e 64 20 | 6d 61 6b 65 2d 6c 6f 63 |command |make-loc|
|00000de0| 61 6c 2d 76 61 72 69 61 | 62 6c 65 20 69 6e 68 69 |al-varia|ble inhi|
|00000df0| 62 69 74 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 74 20 |bit-read|-only t |
|00000e00| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 6d |search-f|orward m|
|00000e10| 61 69 6c 2d 68 65 61 64 | 65 72 2d 73 65 70 61 72 |ail-head|er-separ|
|00000e20| 61 74 6f 72 20 6e 69 6c | 20 31 20 66 62 6f 75 6e |ator nil| 1 fboun|
|00000e30| 64 70 20 77 69 64 67 65 | 74 2d 6d 69 6e 6f 72 2d |dp widge|t-minor-|
|00000e40| 6d 6f 64 65 20 61 70 70 | 6c 79 20 77 69 64 67 65 |mode app|ly widge|
|00000e50| 74 2d 63 72 65 61 74 65 | 20 6d 65 6e 75 2d 63 68 |t-create| menu-ch|
|00000e60| 6f 69 63 65 20 3a 76 61 | 6c 75 65 20 22 20 22 20 |oice :va|lue " " |
|00000e70| 3a 66 6f 72 6d 61 74 20 | 22 25 5b 25 74 25 5d 20 |:format |"%[%t%] |
|00000e80| 25 76 22 20 3a 74 61 67 | 20 22 67 65 74 22 20 6d |%v" :tag| "get" m|
|00000e90| 61 70 63 61 72 20 23 5b | 28 78 29 20 22 c0 c1 c2 |apcar #[|(x) "...|
|00000ea0| 0b 46 87 22 20 5b 63 68 | 6f 69 63 65 2d 69 74 65 |.F." [ch|oice-ite|
|00000eb0| 6d 20 3a 66 6f 72 6d 61 | 74 20 22 25 76 22 20 78 |m :forma|t "%v" x|
|00000ec0| 5d 20 34 5d 20 75 72 6c | 2d 77 65 62 6d 61 69 6c |] 4] url|-webmail|
|00000ed0| 2d 73 77 69 74 63 68 65 | 73 20 75 72 6c 2d 72 65 |-switche|s url-re|
|00000ee0| 71 75 65 73 74 2d 64 61 | 74 61 20 22 3f 22 20 75 |quest-da|ta "?" u|
|00000ef0| 72 6c 2d 6d 61 69 6c 2d | 67 6f 74 6f 2d 66 69 65 |rl-mail-|goto-fie|
|00000f00| 6c 64 20 22 54 6f 22 20 | 75 72 6c 2d 77 65 62 6d |ld "To" |url-webm|
|00000f10| 61 69 6c 2d 67 61 74 65 | 77 61 79 5d 20 31 32 5d |ail-gate|way] 12]|
|00000f20| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 75 72 6c |).(defal|ias 'url|
|00000f30| 2d 64 61 74 61 20 23 5b | 28 75 72 6c 29 20 22 c0 |-data #[|(url) ".|
|00000f40| 09 21 71 88 c2 89 89 1b | 1c 1d c6 c7 0e 08 5c 22 |.!q.....|......\"|
|00000f50| ab a5 c9 ca 0e 08 5c 22 | 15 c9 cb 0e 08 5c 22 14 |......\"|.....\".|
|00000f60| cc 0e 08 cd 95 c2 4f 21 | 13 0d 47 cd 55 ab 82 ce |......O!|..G.U...|
|00000f70| 15 0c 47 cd 55 ab 82 cf | 14 0b 47 16 10 0d 16 11 |..G.U...|..G.....|
|00000f80| 0c 16 12 d3 0d 42 d4 0c | 42 44 16 15 0b ad 82 0b |.....B..|BD......|
|00000f90| 63 2b 87 22 20 5b 67 65 | 74 2d 62 75 66 66 65 72 |c+." [ge|t-buffer|
|00000fa0| 2d 63 72 65 61 74 65 20 | 75 72 6c 2d 77 6f 72 6b |-create |url-work|
|00000fb0| 69 6e 67 2d 62 75 66 66 | 65 72 20 6e 69 6c 20 64 |ing-buff|er nil d|
|00000fc0| 61 74 61 20 65 6e 63 6f | 64 69 6e 67 20 63 6f 6e |ata enco|ding con|
|00000fd0| 74 65 6e 74 2d 74 79 70 | 65 20 73 74 72 69 6e 67 |tent-typ|e string|
|00000fe0| 2d 6d 61 74 63 68 20 22 | 5e 64 61 74 61 3a 5c 5c |-match "|^data:\\|
|00000ff0| 28 5b 5e 3b 2c 5d 2a 5c | 5c 29 3b 2a 5c 5c 28 5b |([^;,]*\|\);*\\([|
|00001000| 5e 2c 5d 2a 5c 5c 29 2c | 22 20 75 72 6c 20 6d 61 |^,]*\\),|" url ma|
|00001010| 74 63 68 2d 73 74 72 69 | 6e 67 20 31 20 32 20 75 |tch-stri|ng 1 2 u|
|00001020| 72 6c 2d 75 6e 68 65 78 | 2d 73 74 72 69 6e 67 20 |rl-unhex|-string |
|00001030| 30 20 22 74 65 78 74 2f | 70 6c 61 69 6e 22 20 22 |0 "text/|plain" "|
|00001040| 38 62 69 74 22 20 75 72 | 6c 2d 63 75 72 72 65 6e |8bit" ur|l-curren|
|00001050| 74 2d 63 6f 6e 74 65 6e | 74 2d 6c 65 6e 67 74 68 |t-conten|t-length|
|00001060| 20 75 72 6c 2d 63 75 72 | 72 65 6e 74 2d 6d 69 6d | url-cur|rent-mim|
|00001070| 65 2d 74 79 70 65 20 75 | 72 6c 2d 63 75 72 72 65 |e-type u|rl-curre|
|00001080| 6e 74 2d 6d 69 6d 65 2d | 65 6e 63 6f 64 69 6e 67 |nt-mime-|encoding|
|00001090| 20 22 63 6f 6e 74 65 6e | 74 2d 74 79 70 65 22 20 | "conten|t-type" |
|000010a0| 22 63 6f 6e 74 65 6e 74 | 2d 65 6e 63 6f 64 69 6e |"content|-encodin|
|000010b0| 67 22 20 75 72 6c 2d 63 | 75 72 72 65 6e 74 2d 6d |g" url-c|urrent-m|
|000010c0| 69 6d 65 2d 68 65 61 64 | 65 72 73 5d 20 34 5d 29 |ime-head|ers] 4])|
|000010d0| 0a 28 70 72 6f 76 69 64 | 65 20 27 75 72 6c 2d 6d |.(provid|e 'url-m|
|000010e0| 69 73 63 29 0a | |isc). | |
+--------+-------------------------+-------------------------+--------+--------+
